
************************************************************************************************************
**#						FIGURE IA-4: YEARLY CHANGES IN THE CEO AND MEDIAN EMPLOYEE PAY
************************************************************************************************************

capture cd "/Users/joshw/CEO Pay Ratio/Analysis/"
use "Data/Temp/dataset_main.dta", clear

*pct_ch_ceopay = trunacated at 100%
*pct_ch_mepay = trunacated at 100%

**********************************************************************
*Panel A - Change in CEO Pay Reporting Year 1 to average of 2-4
**********************************************************************
histogram pct_ch_ceopay, percent ytitle(Percent of Sample) xtitle(Change in CEO Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA4_histogram_ceopay_ch.png", as(png) replace

**********************************************************************
*Panel B - Change in Med Pay Reporting Year 1 to average of 2-4
**********************************************************************
histogram pct_ch_mepay, percent ytitle(Percent of Sample) xtitle(Change in Median Employee Pay) scheme(s2mono) graphregion(color(white)) ylabel(0 "0%"  10 "10%" 20 "20%" 30 "30%") xlabel(-100 "-100%" -50 "-50%" 0 "0%"  50 "50%"  100 "{&ge}100%")  bcolor(dknavy) barwidth(5.5)
graph export "Output/Tables/RF/FigIA4_histogram_medpay_ch.png", as(png) replace
